home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 68.7z / BS1 part 68 / Type Smith v2.0 (1993)(Relog)[h SR][WB].7z / Type Smith v2.0 (1993)(Relog)[h SR][WB].adf / REXX.lha / Rexx / MoveCharacter.tsrx < prev    next >
Text File  |  1993-11-08  |  530b  |  27 lines
  1. /* MOVE A CHARACTER */
  2. /* Copyright 1993 Soft-Logik Publishing Corporation */
  3. /* May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4. /* $VER: 2.0 */
  5.  
  6. ADDRESS 'TYPESMITH'
  7. OPTIONS RESULTS
  8. TRACE OFF
  9.  
  10. /* Screen to front */
  11. to_front
  12.  
  13. /* get the move amounts */
  14.  
  15. get_string 'Move character horizontally: |Continue|Exit'
  16. IF RC=5 THEN EXIT
  17. movex=RESULT
  18. get_string 'Move character vertically: |Continue|Exit'
  19. IF RC=5 THEN EXIT
  20. movey=RESULT
  21.  
  22. select_all
  23.  
  24. MOVE movex movey
  25.  
  26. /* SHORT AND SWEET! */
  27.